﻿Public Class frmConsultaEmpregador

    Private emp As New _empregador

    Private DTVEmpregador As DataView
    Private _DTVEmpregador As DataSet

    Private _idEmpregador As Integer
    Public Property idEmpregador() As Integer
        Get
            Return _idEmpregador
        End Get
        Set(ByVal value As Integer)
            _idEmpregador = value
        End Set
    End Property


    Private Sub frmConsultaEmpregador_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgvEmpregadores.AutoGenerateColumns = False
        DTVEmpregador = emp.consultaEmpregadores.Tables("dataSet").DefaultView
        dgvEmpregadores.DataSource = DTVEmpregador

    End Sub


    Private Sub dgvEmpregadores_CellContentDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvEmpregadores.CellContentDoubleClick

        idEmpregador = dgvEmpregadores.CurrentRow.Cells("O_ID_EMPRESA").Value
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()

    End Sub

    Private Sub btnCadastrarnovoEmpregador_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCadastrarnovoEmpregador.Click

        Dim j As New frmCadastroEmpregador
        j.ShowDialog()
        dgvEmpregadores.AutoGenerateColumns = False
        DTVEmpregador = emp.consultaEmpregadores.Tables("dataSet").DefaultView
        dgvEmpregadores.DataSource = DTVEmpregador
    End Sub

    Private Sub txtNomeTrabalhador_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPesquisar.TextChanged

        DTVEmpregador.RowFilter = "O_NM_EMPRESA LIKE '%" & txtPesquisar.Text & "%'"
        dgvEmpregadores.DataSource = DTVEmpregador


    End Sub
End Class